home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
util
/
misc
/
ftransd_2_1a.lha
/
FTransD_2.1a
/
amigaguide.library
/
FTransD_2.1
/
ARexx-Scripts
/
FTCed.ced
< prev
next >
Wrap
Text File
|
1995-07-15
|
4KB
|
109 lines
/* $VER: FTCed.ced 1.3 (05.06.95)
*
* FTrans-CygnusEd ARexx-Script (c) Copyright 1994/95 by Rainer Hess
*
* ARexx-Script, da▀ das Wort unter dem Cursor von CyngnusEd austauscht.
*
* Diese Script zeigt den Weg ⁿber eine Datei. Den bessere kⁿrzere
* Weg, wΣre ⁿber den ARexx-Befehl WORTARG von FTrans. Siehe hierzu
* auch das ARexx-Script FTCed2.ced.
*
* V1.1 - csGetWord() nach csgetword() geΣndert.
* V1.2 - Meldung ob FTEcho an oder aus ist entfernt.
* V1.3 - ARexx-Port-Name fⁿr FTrans V1.7 geΣndert. LockGUI/UnlockGUI
* neu hinzu.
*/
options results
CR = '0A'X /* Carrige Return */
BLOCKFILE = 't:FTransWort' /* Dateiname fⁿr Austausch festlegen */
/*
* rexxcedsupport.library einbinden.
*/
if ~show('l',"rexxcedsupport.library") then do
call addlib 'rexxcedsupport.library',0,-30,0
if (result = 0) then do
okay1 "Die rexxcedsupport.library kann nicht eingebunden werden!" CR || "Evtl. ist die rexxcedsupport.library nicht installiert..."
exit
end
end
/* --- ob FTrans aktiv ---*/
if ~show( 'p', 'FTRANS.1' ) then do
okay1 "Oops! FTrans ist nicht aktiv." CR || "Bitte FTrans aktivieren..."
exit
end
/* --- CygnusEd --- */
on = 0 /* Merker vorbesetzen */
address 'rexx_ced' /* CygnusEd Arexx-Port suchen */
status 11 /* Layout Abfragen */
if( result = 1) then do /* Wenn Layout ein dann ausschalten! */
layout /* Layout macht Probleme beim Zeilenende */
on = 1 /* Merken ob Layout ein war */
end
status 82 /* Datei editierbar ? */
if( result = 0) then do
okay1 "Datei ist nicht editierbar! Falls dies" CR || "doch erwⁿnscht ist, CygnusEd auf Datei" CR || "editieren umschalten..."
exit
end
if( open(outfile,BLOCKFILE,'W') = 0) then do
okay1 "Die ▄bergabedatei """BLOCKFILE""" ist " CR || "nicht zu ÷ffnen! Abbruch..."
exit
end
cedwort = csgetword() /* Wort unter Cursor von CygnusEd abholen */
writech(outfile, cedwort ) /* Wort in ▄bergabedatei speichern */
close(outfile) /* ▄bergabedatei schlie▀en */
csdelword()
/* --- FTRANS --- */
address 'FTRANS.1' /* FTrans Arexx-Port suchen */
LockGUI /* Eingaben ⁿber die GUI sperren */
FTEcho "off" /* FTransARexx-Echo auschalten */
OldPublicScreen /* Alten PublicScreen abfragen */
oldpubscr = result /* Alten PublicScreen merken */
PublicScreen "CygnusEdScreen1" /* LernWindow auf Ced-Screen umschalten */
/* Nur m÷glich CygnusEd als PublicScreen */
/* lΣuft. Ist im FTrans-Menⁿ: Bildschirm */
/* aktiv, k÷nnen die PublicScreen EintrΣge */
/* auch entfernt werden. */
Wort BLOCKFILE /* FTrans auf Wortⁿbersetzung umschalten */
/* Dateiname in mit WORT in BLOCKFILE. */
PublicScreen oldpubscr /* LernWindow auf vorherigen PublicScreen */
/* zurⁿckschalten */
UnlockGUI /* GUI wieder freigeben */
FTEcho "on" /* FTransARexx-Echo wieder einschalten */
/* --- CygnusEd --- */
address 'rexx_ced' /* CygnusEd Arexx-Port suchen */
include file BLOCKFILE /* Block wieder einfⁿgen, evtl. ⁿbersetzt */
if( on = 1 ) then do /* Layout war eingeschaltet, */
layout /* dann wieder aktivieren */
end
address command 'c:delete >NIL:' BLOCKFILE /* Austauschdatei l÷schen */
exit 0